perm filename TEST.F4[M11,LCS] blob sn#407405 filedate 1979-01-03 generic text, type T, neo UTF8
	DIMENSION INP(80)
889	FORMAT(2F)
2	FORMAT(2F,2I)
890	FORMAT(' TYPE'/)
5	TYPE 890
	K=0
	ACCEPT 2,A,B,J,L
3	X=RAN(X)
	X=A+(B-A)*X
1	IF(L.NE.0)PRINT 889,X
	TYPE 889,X
	K=K+1
	IF(K.NE.J)GO TO 3
	GO TO 5
	END